home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / 8087.arc / DIV.ASM < prev    next >
Encoding:
Assembly Source File  |  1985-02-13  |  1.1 KB  |  73 lines
  1.     PAGE    ,132
  2.     TITLE    Division test routine
  3. IF1
  4. INCLUDE 87MAC.LIB
  5. ENDIF
  6. ZZZ    SEGMENT STACK
  7.     DW    64 DUP(?)
  8. ZZZ    ENDS
  9. CODE    SEGMENT PUBLIC
  10.     ASSUME    CS:CODE,DS:CODE,ES:CODE
  11.     EXTRN    TEN_TO_X:NEAR
  12. NUMERATOR    DW    1234
  13. DENOMINATOR    DW    5678
  14.     ORG    10H
  15. BCD_RESULT    DT    ?
  16. TEN8        DD    100000000
  17. DIVIDE_TEST    PROC    FAR
  18.     PUSH    DS
  19.     SUB    AX,AX
  20.     PUSH    AX
  21.     MOV    AX,CS
  22.     MOV    DS,AX
  23.     MOV    ES,AX
  24. DO_AGAIN:
  25.     FINIT
  26.     FILD    NUMERATOR
  27.     FILD    DENOMINATOR
  28.     INT    3
  29.  
  30.     ORG    100H
  31.     FDIVRP    ST1,ST0
  32.     FIMUL    TEN8
  33.     FBSTP    BCD_RESULT
  34.     JMP    DO_AGAIN
  35.     ORG    110H
  36.     FDIVP    ST1,ST0
  37.     FIMUL    TEN8
  38.     FBSTP    BCD_RESULT
  39.     JMP    DO_AGAIN
  40.     ORG    120H
  41.     FDIV    ST1,ST0
  42.     FIMUL    TEN8
  43.     FBSTP    BCD_RESULT
  44.     JMP    DO_AGAIN
  45.     ORG    130H
  46.     FDIVR    ST1,ST0
  47.     FIMUL    TEN8
  48.     FBSTP    BCD_RESULT
  49.     JMP    DO_AGAIN
  50.     ORG    140H
  51.     FSUBP    ST1,ST0
  52.     FIMUL    TEN8
  53.     FBSTP    BCD_RESULT
  54.     JMP    DO_AGAIN
  55.     ORG    150H
  56.     FSUBRP    ST1,ST0
  57.     FIMUL    TEN8
  58.     FBSTP    BCD_RESULT
  59.     JMP    DO_AGAIN
  60.     ORG    160H
  61.     FSUB    ST1,ST0
  62.     FIMUL    TEN8
  63.     FBSTP    BCD_RESULT
  64.     JMP    DO_AGAIN
  65.     ORG    170H
  66.     FSUBR    ST1,ST0
  67.     FIMUL    TEN8
  68.     FBSTP    BCD_RESULT
  69.     JMP    DO_AGAIN
  70. DIVIDE_TEST    ENDP
  71. CODE    ENDS
  72.     END    DIVIDE_TEST
  73.